home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00195.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.5 KB  |  50 lines
  1. on exitFrame
  2.   global plantcounter
  3.   plantcounter = plantcounter - 1
  4.   if plantcounter = 7 then
  5.     if ((sprite(27).visible = 1) or (sprite(3).visible = 1)) and (sprite(5).visible = 1) and (plantcounter >= 0) then
  6.       sprite(21).visible = 1
  7.       sprite(27).visible = 0
  8.       sprite(3).visible = 0
  9.       sprite(5).visible = 0
  10.       sprite(6).visible = 0
  11.       sprite(7).visible = 0
  12.       go("y2")
  13.     else
  14.       if ((sprite(28).visible = 1) or (sprite(4).visible = 1)) and (sprite(8).visible = 1) and (plantcounter >= 0) then
  15.         sprite(23).visible = 1
  16.         sprite(28).visible = 0
  17.         sprite(4).visible = 0
  18.         sprite(8).visible = 0
  19.         sprite(7).visible = 0
  20.         sprite(9).visible = 0
  21.         go("y2")
  22.       else
  23.         if (sprite(29).visible = 1) and (sprite(11).visible = 1) and (plantcounter >= 0) then
  24.           sprite(25).visible = 1
  25.           sprite(29).visible = 0
  26.           sprite(11).visible = 0
  27.           sprite(10).visible = 0
  28.           sprite(9).visible = 0
  29.           go("y2")
  30.         end if
  31.       end if
  32.     end if
  33.   else
  34.     if plantcounter < -5 then
  35.       if (sprite(21).visible = 1) or (sprite(23).visible = 1) or (sprite(25).visible = 1) then
  36.         go("docend")
  37.       else
  38.         sprite(21).visible = 0
  39.         sprite(23).visible = 0
  40.         sprite(25).visible = 0
  41.       end if
  42.       sprite(27).visible = 0
  43.       sprite(28).visible = 0
  44.       sprite(29).visible = 0
  45.       sprite(3).visible = 0
  46.       sprite(4).visible = 0
  47.     end if
  48.   end if
  49. end
  50.